<text><span class="style7">tack & Code Resources © 1991, Nigel Perry
This stack and associated code resources are supplied asis, no gurantee express or implied is given that it will do anything or nothing to your Mac system, use only at your own risk. (Previous sentance probably only required in the USA…)
Free for personal use and for use in stacks & applications which are free, provided this copyright notice and conditions of use are clearly displayed. May not be used for commercial or profit-making purposes or in ShareWare without permission. Code resources written in THINK C © Symantec.</span></text>
</content>
<content>
<layer>background</layer>
<id>6</id>
<text>Nigel Perry: HCI Centre, Queen Mary and Westfield College & Dept of Computing, Imperial College. Email: np@doc.ic.ac.uk</text>
</content>
<name></name>
<script>on arrowKey which
if which is "Right" then
send mouseUp to btn "Next"
else
if which is not "Left" then
pass arrowKey
end if
end if
end arrowKey</script>
</card>
card_2867.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style1">ormally HyperCard resets the cursor on </span><span class="style12">idle</span><span class="style1"> to the </span><span class="style12">browse</span><span class="style1"> cursor, thus preventing the HyperTalk programmer from making a permanent change to the cursor. The </span><span class="style12">idleCursor</span><span class="style1"> XCMD enables a programmer to set the browse cursor to something other than the pointing hand cursor, thus effecting a permanent cursor change.
where </span><span class="style12">cursor</span><span class="style1"> may either be a cursor name of number. To reinstate the default hand cursor use must use </span><span class="style13">setCursor("Hand")</span><span class="style1">.
</span><span class="style12">(Note: under Finder the automatic subtitution of the hand cursor by another cursor will persist outside of HyperCard.)</span></text>
<text><span class="style1">he </span><span class="style12">available</span><span class="style1"> XFCN returns either a list of all the </span><span class="style12">named</span><span class="style1"> resources of a given type, or a list of all the resource types, currently available.
Where </span><span class="style12">type</span><span class="style1"> is one of: font(s), soun(ds), pict(ures), curs(ors), icon(s), type(s) or XXXX; which request the availabe fonts, sounds, pictures, cursors, icons, resource types, or resources of type XXXX respectively. The result of available is a return seperated list with one resource name per line.
Note: when specifying a resource type case is significant, i.e. </span><span class="style13">"xcmd"</span><span class="style1"> will </span><span class="style12">not</span><span class="style1"> return a list of available XCMDs, whereas </span><span class="style13">"XCMD"</span><span class="style1"> will.</span></text>
</content>
<name></name>
<script></script>
</card>
card_2516.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
where </span><span class="style12">font name</span><span class="style1"> is the name a font. The result is a list of lines, the first line contains two items; the font number and whether the font is </span><span class="style13">fixed</span><span class="style1"> width or </span><span class="style13">proportional</span><span class="style1"> ΓÇô this second item should be taken with a pinch of salt as many fixed width fonts are labeled as proportional! The second and subsequent lines contain details of the sizes & styles of the font bitmaps which are available. The first item on each line is the bitmap point size, the second and subsequent items are the bitmap style. If the point size is zero then the line gives details of a TrueTypeΓäó font.
</span></text>
</content>
<name></name>
<script></script>
</card>
card_4178.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
-- could be more than on word, don't use clickText
put the clickLine into lnum
do "put" && lnum && "into fname"
put fontInfo(fname) into cd fld "Info"
set the scroll of cd fld "Info" to 0
end mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>224</left>
<top>113</top>
<right>406</right>
<bottom>216</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Info</name>
<script></script>
</part>
<content>
<layer>background</layer>
<id>3</id>
<text>Page 4 of 5</text>
</content>
<content>
<layer>background</layer>
<id>9</id>
<text>Example</text>
</content>
<content>
<layer>background</layer>
<id>2</id>
<text><span class="style1">he field on the left contains the result of </span><span class="style13">available("fonts")</span><span class="style1">. If you click on a font name the result of </span><span class="style13">fontInfo(</span><span class="style14">font name</span><span class="style13">)</span><span class="style1"> will be put into the right field. A </span><span class="style13">mouseEnter</span><span class="style1">/</span><span class="style13">mouseLeave</span><span class="style1"> handler pair set the cursor to a ΓÇÿ?ΓÇÖ using </span><span class="style13">idleCursor</span><span class="style1"> while over the left field. For more details look at the scripts (card & field).</span></text>
</content>
<content>
<layer>card</layer>
<id>3</id>
<text>CalligraphyLaser
Chicago
Courier
Geneva
Helvetica
HelveticaFractions
Monaco
Palatino
Postscript Escape
RegencyScript
Symbol
Times
Warwick S
Warwick T</text>
</content>
<name></name>
<script>on openCard
set the cursor to watch
lock screen
put available("fonts") into cd fld "Names"
sort cd fld "Names"
put empty into cd fld "Info"
set the scroll of cd fld "Names" to 0
set the scroll of cd fld "Info" to 0
unlock screen
pass openCard
end openCard
on closeCard
idleCursor("hand") -- just in case
end closeCard</script>
</card>
card_4353.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style1">he three externals in this stack are part of the next release of </span><span class="style12">Regions</span><span class="style1">, now renamed </span><span class="style12">Pictoids</span><span class="style1">, which is currently under development. They have been released now after a Usenet request for an external to set the idle cursor.
PostcardWare: If you use these externals please send me a postcard of your area to show your apprectiation and encourage me to produce more free software. My address is: Dr N Perry, 48 Ingleway, London N12 0QN, UK.
